home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr22 / flopchek.zip / FLOPCHEK.BAS next >
BASIC Source File  |  1993-05-01  |  655b  |  23 lines
  1. 5 PRINT CHR$(10);"AT/386/486 CMOS floppy drive record check.
  2. 6 PRINT "Copyright (C) 1990 by Padgett (though trivial)";CHR$(10)
  3. 10 FLOC=16
  4. 20 OUTC=112
  5. 30 INC=113
  6. 40 OUT OUTC,FLOC
  7. 50 FREC=INP(INC)
  8. 60 FLOP$=HEX$(FREC)
  9. 70 F$=LEFT$(FLOP$,1)
  10. 80 GOSUB 140
  11. 90 PRINT "First floppy drive record indicates:  ";R$
  12. 100 F$=RIGHT$(FLOP$,1)
  13. 110 GOSUB 140
  14. 120 PRINT "Second floppy drive record indicates: ";R$;CHR$(10)
  15. 130 END
  16. 140 R$="Unknown code: "+F$
  17. 150 IF F$="0" THEN R$="Not Present"
  18. 160 IF F$="1" THEN R$="360k  5 1/4 "
  19. 170 IF F$="2" THEN R$="1.2M  5 1/4 "
  20. 180 IF F$="3" THEN R$="720k  3 1/2 "
  21. 190 IF F$="4" THEN R$="1.44M 3 1/2 "
  22. 200 RETURN
  23.